home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / toolkit / riruf1 / rufabout.frm < prev    next >
Text File  |  1995-05-19  |  4KB  |  115 lines
  1. VERSION 2.00
  2. Begin Form RUFAboutForm 
  3.    BackColor       =   &H00FFFFFF&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "About"
  6.    ClientHeight    =   5220
  7.    ClientLeft      =   1125
  8.    ClientTop       =   1485
  9.    ClientWidth     =   6855
  10.    Height          =   5625
  11.    Left            =   1065
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   5220
  14.    ScaleWidth      =   6855
  15.    Top             =   1140
  16.    Width           =   6975
  17.    Begin PictureBox IconPic 
  18.       AutoSize        =   -1  'True
  19.       BorderStyle     =   0  'None
  20.       Height          =   495
  21.       Left            =   810
  22.       ScaleHeight     =   495
  23.       ScaleWidth      =   495
  24.       TabIndex        =   3
  25.       Top             =   240
  26.       Width           =   495
  27.    End
  28.    Begin CommandButton cmdOK 
  29.       Caption         =   "&OK"
  30.       Height          =   375
  31.       Left            =   3000
  32.       TabIndex        =   0
  33.       Top             =   4740
  34.       Width           =   975
  35.    End
  36.    Begin Label lblAbout2 
  37.       BackColor       =   &H00404040&
  38.       Caption         =   "label"
  39.       FontBold        =   -1  'True
  40.       FontItalic      =   0   'False
  41.       FontName        =   "Arial"
  42.       FontSize        =   8.25
  43.       FontStrikethru  =   0   'False
  44.       FontUnderline   =   0   'False
  45.       ForeColor       =   &H00FFFFFF&
  46.       Height          =   1635
  47.       Left            =   600
  48.       TabIndex        =   2
  49.       Top             =   3060
  50.       Width           =   5655
  51.    End
  52.    Begin Label lblAbout 
  53.       Alignment       =   2  'Center
  54.       BackColor       =   &H00404040&
  55.       BorderStyle     =   1  'Fixed Single
  56.       FontBold        =   -1  'True
  57.       FontItalic      =   0   'False
  58.       FontName        =   "Arial"
  59.       FontSize        =   8.25
  60.       FontStrikethru  =   0   'False
  61.       FontUnderline   =   0   'False
  62.       ForeColor       =   &H0000FFFF&
  63.       Height          =   5235
  64.       Left            =   0
  65.       TabIndex        =   1
  66.       Top             =   0
  67.       Width           =   6855
  68.    End
  69. End
  70. Option Explicit
  71.  
  72. Sub cmdOk_Click ()
  73.     Unload RUFAboutForm
  74. End Sub
  75.  
  76. Sub Form_Load ()
  77.     Dim sAbout$
  78.  
  79.     If bReg Then
  80.         lblAbout2.Visible = False
  81.         RUFAboutForm.Height = 4000
  82.         cmdOk.Top = 3500
  83.     End If
  84.  
  85.     sAbout = Chr(10) + Chr(13)
  86.     sAbout = sAbout & TheAppTitle & "Ö" + Chr(10) + Chr(13) + Chr(10) + Chr(13)
  87.     sAbout = sAbout & "Version " & sVer + Chr(10) + Chr(13) + Chr(10) + Chr(13)
  88.  
  89.     sAbout = sAbout & "Copyright  ⌐ 1995 MIS Resources International, Inc." + Chr(10) + Chr(13)
  90.     sAbout = sAbout & "All rights reserved" + Chr(10) + Chr(13)
  91.     sAbout = sAbout & Chr(10) + Chr(13)
  92.     sAbout = sAbout & Chr(10) + Chr(13)
  93.     sAbout = sAbout & "MIS Resources International, Inc." + Chr(10) + Chr(13)
  94.     sAbout = sAbout & "Suite 301, 570 Colonial Park Drive" + Chr(10) + Chr(13)
  95.     sAbout = sAbout & "Roswell, Georgia 30075" + Chr(10) + Chr(13)
  96.     sAbout = sAbout & "Voice: (404) 640-3400  Fax: (404) 587-1932" + Chr(10) + Chr(13)
  97.     sAbout = sAbout & "Compuserve ID: 75350,205" + Chr(10) + Chr(13) + Chr(10) + Chr(13)
  98.  
  99.     lblAbout = sAbout
  100.  
  101.     If Not bReg Then
  102.         sAbout = TheAppTitle & " is shareware. You are allowed to evaluate this software "
  103.         sAbout = sAbout & "for 30 days. At the end of the evaluation period you must register it "
  104.         sAbout = sAbout & "or discontinue using the software. Registered users will receive a "
  105.         sAbout = sAbout & "copy of the current version without a nag screen, printed manual "
  106.         sAbout = sAbout & "and three months of technical support by phone and unlimited "
  107.         sAbout = sAbout & "technical support by fax or mail."
  108.         lblAbout2 = sAbout
  109.     End If
  110.     DoEvents
  111.  
  112.     IconPic = MainForm.Icon
  113. End Sub
  114.  
  115.